package get_psql_time;

require Exporter;


our @ISA = qw(Exporter);
our $VERSION = 1.00;
our @EXPORT = qw(   get_psql_time);



use strict;
use warnings;
use DBI;
use DBD::Pg;
use Carp;
#use lib ("$FindBin::Bin/..", "/net/cpp-group/Leo/bin");
use db_parameters;



sub get_psql_time($)
{
	my ($dbh) = @_;

	my $array = $dbh->selectall_arrayref(<<'PL/SQLCMD')	or die DBI::errstr;
	select (current_timestamp);
PL/SQLCMD
	return $array->[0][0];
}
return 1;
